$PBExportHeader$uo_picturebotton.sru
forward
global type uo_picturebotton from picturebutton
end type
end forward

global type uo_picturebotton from picturebutton
int Width=343
int Height=105
int TabOrder=1
string Text="none"
Alignment HTextAlign=Left!
int TextSize=-10
int Weight=400
string FaceName="Arial"
FontFamily FontFamily=Swiss!
FontPitch FontPitch=Variable!
event ue_mousemove pbm_mousemove
end type
global uo_picturebotton uo_picturebotton

type variables
Public:
boolean         ib_tooltip = False   // Indica si esta activo el servicio de Mensages ToolTip
uo_tooltip      iuo_tooltip   // Objecto  ToolTip

end variables

forward prototypes
public function integer uof_settooltip (string texto)
end prototypes

event ue_mousemove;If ib_tooltip Then iuo_tooltip.uof_RelayMsg( This )



end event

public function integer uof_settooltip (string texto);If ib_tooltip Then
	Return -1
End if 

/* Crea el objecto y le asigna el texto */
iuo_tooltip = create uo_tooltip

iuo_tooltip.uof_addtools(this,texto,0)

ib_tooltip = True

Return 1



end function

event destructor;If ib_tooltip Then Destroy iuo_tooltip

end event

